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DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 

(fill out in typewriter or pencil, do not use ink) 

Program No. Datfe_ 

Program Name: 

1. Does the abstract adequately describe what the program is and what Yes No, 

it does? 
Commen t 

2. Does the program do what the abstract says ? Yes No, 

Commen t _____________ 

3. Is the Description clear, understandable, and adequate? Yes No. 

Commen t 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Comment 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable? Yes No_ 

Comment 

5„ Does the source program compile satisfactorily (if applicable)? Yes No_ 

Commen t 

6. Does the object program run satisfactorily? Yes No^ 

Commen t, \ _____ 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No_ 

Comment 

9. Were all necessary parts of the program received? Yes No_ 

Comment 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company 
Data Corporation 

7500 Old Xenia Pike Address 
Dayton, Ohio 45432 



User Group Code, 



THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATIONS PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. 
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1620 Edit Subroutine 



Thomas L . Yates 
Statistics Computing Lab 
Oregon State University 
Corvallis, Oregon 
User # 5048 



jHTJ /""N Modifications or revisions to this program, as they occur, 

0>«C will be announced in the appropriate Catalog of Programs 

C_V for IBM Data Processing Systems. When such an announce- 

ment occurs, users should order a complete new program 
from the Program Information Department. 
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DECK KEY 



1. Program Deck 



V 



1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 



1. TITLE (If subroutine, state in Title): 1620 EDIT SUBROUTINE 



2. Author; Organization: THOMAS L. YATES, Statistics Computing Lab, Oregon State University, 

Corvallis. Oregon 

Date: 7-24-63 Users Group Membership Code: 5048 

3. Direct Inquiries to Name: Thomas L. Yates, Director, Statistics Computing Lab, Oregon State 

University. Corvallis, Oregon Phone: PI. 2-4211, Ext, 1315 

4. Description/Purpose: (5. Method; 6. Restriction/ Range; When Applicable) 

To nrovme data field editting similar to the IBM 1401. Innut and output in -lpha mode. Editting 
i '.cindas insertion of punctuation, zero suppression and sign control. 



7. Specifications (Check or fill in appropriate spaces): 

a. Storage used by program: 777 

b. Equipment required by program: 

Card System t/ ; Magnetic Tape System ; No. of Tapes ; 

Paper Tape System s Disk File System ; No. of Packs ; 

TNS, TNF, MF ; Auto divide ; Indirect addressing X ; Floating point hardware 

Other (specify) 20 t< 

Can program be used on lesser Machine? . Specify which requirements can be 

easily removed • 

c. Programming type (Check appropriate spaces): 

Fortran without Format ; Fortran with Format ; 

Fortran II ; Mainline, Complete ; Subroutine or function subprogram(S or F) ; 

Is the program a library (ie, SPS) function to the Fortran system checked? ; 

SPS X ; SPS - 1620/1710 ; 

Mainline, Complete ; Macro ; Subroutine X ; 

Other programming language: ; Give details_ 

d. Language used in the writeup: 

8. Additional Remarks: 
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PROGRAM WRITEUP 



1. 1620 EDIT SUBROUTINE 

2. November, 1963 

3. Programmer: T. L. Yates 

Statistics Computing Lab 
Oregon State University 
Corvallis, Oregon 
User #5048 

Phone PI. 2-4211, Ext. 1315 

4. Program Description: A subroutine written in SPS to edit data (results) in 
a manner similar to the 1401. The subroutine is in symbolic (unassemble) 
language and can be included in any SPS program. The routine provides for 
insertion of punctuation, other constant information, zero suppression and 
sign control of alpha mode fields of any length. 

5. Input and Output Formats. Does not apply. 

6. Restrictions: Both the data field and the edit field mask to be used on the data 
field must be in alpha mode with a flag on the high order digit of the field. Those 
users utilizing the TNF instruction should take note of the fact that this instruction 
does not set a flag in the high order position. 

7. Error stops: Does not apply. 

8. Operating Instructions: Linkage to the subroutine is obtained by the following 
sequence, 

TFM DW, "XA" 
TFM ADEW, "XB" 
BTM EDIT, "XC" 

where , 

"XA" is units position address of data. 

"XB" is units position address of field where editted result 

is to be placed. 
"XC" is units position address of edit mask. 



-2- 



The Edit Mask is prepared in a similar manner to the 1401 Edit Constant. 
The data field is inserted in blank characters in the mask, all other mask 
characters are retained in the result except, 

(1) The first time a zero is encountered in the mask a data 
digit will replace it. Zero suppression will then be 
imposed from the high order digit back to the position 
which held the zero or to a significant digit. The zero 
suppression will also blank out all decimal points and 
commas to the left of the most significant digit. 

(2) A minus ( - ) in the low order position of the mask will 
be retained if the data field is negative, otherwise it will 
be blanked out. 

(3) "XB" and "XC" must be different memory locations if the 
mask is to be used by the program more than one time. 

(4) If the mask field is too short to accomodate the data field 
the word 'EDIT' will be typed on the console typewriter and 
the subroutine will return control to the main routine 
without stopping. 

(5) Upon exitting from the subroutine the Arithmetic Overflow 
Indicator will be ON. 

9. Equipment Required: Any 1620 configuration with Indirect Addressing. The 
Subroutine uses 777 positions of memory. 

10. Language: SPS. Following labels are used by subroutine, 

ADED 
A DEW 
DW 

C0MBAK 

EDBLNK 

EDDIG 

EDERR 

EDIT 

EDTALY 

EDZTLY 

EWA 

KOO 

K03 

K10 



K20 
KS3 
K60 
K70 
K7J. 
NJ&ED 



EXAMPLES 



DATA 

NUMERIC ALPHA 

707071727374 



001234 



001234 



5678 



5678 



707071727374 



001234 707071727374 



75767778 



75767758 



MASK 

000000000000 
(bbbbbb) 

000000000070 
(bbbbbO) 

130023000000030070 
($b,bbb.b0) 

002300007020 
(b, bbO-) 

002300007020 
(b. bbO-) 



EDITTED RESULT 

707071727374 
(001234) 

000071727374 
(bbl234) 

130000007172037374 
($bbbl2. 34) 

752376777800 
(5,678b) 

752376777820 
(5,678-) 
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